[StipJey]

Спасибо! Критику воспринял

код вот такой (выложил весь, чтоб было понятней, ошибочное место выделил красным, Знаком || выделено положение курсора)

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  If SaveDialog1.Execute Then
    With TStringList.Create Do
      Begin
        Add(Edit1.Text);
        Add(Edit2.Text);
        SaveToFile(SaveDialog1.FileName);
        Free;
      End;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  If OpenDialog1.Execute Then
    With TStringList.Create Do
      Begin
        LoadFromFile(OpenDialog1.FileName);
        If Count > 0 Then Edit1.Text := Items||[0] Else Edit1.Text := '';
        If Count > 1 Then Edit2.Text := Items[1] Else Edit2.text := '';
        Free;
      End;
end;

end.

[Ошибка] Unit1.pas(52): Undeclared identifier: 'Items'
[Фатальная ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

вот такто

Далее... поиском я пользуюсь, и прочитал немало статей прежде чем обратился к вам.

а можно тебя попросить написать эту программку, она же для вас - раз плюнуть, а мне полезно будет