[AlexandrV]

Код:

Form1.Button1.ModalResult:=mrOk;
Form1.Button2.ModalResult:=mrCancel;
Result:=Form1.ShowModal=mrOk;

спасибо.
Скажи что этот код делает каждая строчка что делает

loadIniLData; - процедура считывания из ини файла текстов

Код:

procedure loadIniLData;
var tyjk:Integer;
begin
  IniLData:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'LibxEditFiles\параметры Save\Language.LData');
  CodesLancLibxStrocaStr:=IniLData.ReadString('Код_Удаления_Строки_По_Коду','Код','Fred');
  CodesLancLibxStrocaInt:=Length(CodesLancLibxStrocaStr);
  codesIniLDataStr1:=codesIniLDataStr;
  MaxLancLibxStrocaInt:=IniLData.ReadInteger('Seve Language Libx','MaximumLangLibx',20);
  SetLength(DinamikIniLanguage,MaxLancLibxStrocaInt);
  for tyjk := 0 to MaxLancLibxStrocaInt do begin
    codesIniLDataStr1:=IniLData.ReadString('Seve Language Libx',codesIniLDataStr+inttostr(tyjk),'');
    codesIniLDataStr2:=codesIniLDataStr1;
    System.Delete(codesIniLDataStr2,Pos(CodesLancLibxStrocaStr,codesIniLDataStr2),length(codesIniLDataStr2));
    System.Delete(codesIniLDataStr1,1,System.Pos(CodesLancLibxStrocaStr,codesIniLDataStr1)+CodesLancLibxStrocaInt-1);
    DinamikIniLanguage[tyjk]:=codesIniLDataStr2;
    Form3.ComboBox1.Items.Add(codesIniLDataStr1);
    Form3.ComboBox1.ItemIndex:=0;
  end;
  IniLData.Free;
end;

Админ: Не забываем про оформление!