Deinterlace example for Delphi

procedure TForm1.DeinterlatedClick(Sender: TObject);
begin
   LEADImage1.Deinterlace( DEINTERLACE_SMOOTH Or DEINTERLACE_ODD );
end;