Ассоциация файлов

[Renat21]

Привет всем! У меня возникла такая проблема: я программно зарегистрировал в реестр расширение с именем .cid для ассоциации файлов с данным расширением с моим приложением
Вот фрагмент кода программы:

procedure TForm1.FormCreate(Sender: TObject);
var
  reg:TRegistry;
  inputstring:string;
  MySidFile:string;
  f:File;
  buf:string;
begin
if ParamCount=0 then
begin
MySidFile:=ParamStr(ParamCount);
AssignFile(f,ExtractFileName(MySidFile));
Reset(f);
BlockRead(f,buf,FileSize(f));;
Edit1.Text:=buf;
CloseFile(f);
end
else
begin
inputstring:=ExtractFilePath(Application.ExeName);
reg:=tregistry.create;
reg.rootkey:=hkey_classes_root;
reg.CreateKey('.cid\shell\open\command');
reg.openkey('.cid\shell\open\command',true);
reg.writestring('','"'+Application.ExeName+'"%1""');
reg.CloseKey;
reg.CreateKey('.cid\shell\defaulticon');
reg.OpenKey('.cid\shell\defaulticon',true);
reg.WriteString('','"'+Application.ExeName+'"');
reg.CloseKey;
reg.Destroy;
end;
end;

При запуске ошибок нет. Но в поле Edit1.Text должно быть содержимое файла с расширением .cid, но там ничего нет (В файле, например, primer.cid я с помощью блокнота ввожу какие-либо данные) Почему данные не отображаются?

[Пепел Феникса]

Но в поле Edit1.Text должно быть содержимое файла с расширением .cid, но там ничего нет (В файле, например, primer.cid я с помощью блокнота ввожу какие-либо данные) Почему данные не отображаются?

может быть потому что ваше условие не выполняется?
1)есть отладка
2)почему пытаетесь взять параметр когда его не будет?

if ParamCount>0 then
 begin
  AssignFile(f,ParamStr(1));
  Reset(f);
  BlockRead(f,buf,FileSize(f));;
  Edit1.Text:=buf;
  CloseFile(f);
 end

два совета:
1)программа делает не то что вы хотите, а то что вы написали.
2)научитесь читать код, как текст.