При перемещении файла на иконку программы, запустить его.

[Dionix]

Привет всем! У меня вот такая проблема.
Мне нужно чтобы при перемещении *.txt файла на иконку моей программы на рабочем столе открывалось приложение и автоматически загружало этот файл, например, в Мемо1..
но только как реализовать..не знаю....помогите!

[SnX]

procedure TForm.FormCreate(Sender: TObject);
var
  i: integer;
  sFile: string;
begin
  for i:=1 to paramcount do
    sFile:=sFile+' '+paramstr(i);

  delete(sFile,1,1);

  if ExtractFileExt(sFile)='.txt' then
    Memo.Lines.LoadFromFile(sFile);
end;

[Dionix]

всё я разобрался! спасибо! =)