[R-18Rus]

Не работают open и save dialogs. Компилятор ошибки не находит.

Код:

procedure TForm1.N3Click(Sender: TObject);
var proezd:TStringList;
begin
if OpenDialog1.Execute then begin
  Proezd:=TStringList.Create;
  proezd.LoadFromFile(OpenDialog1.FileName);
  Label6.Caption:=proezd.Strings[0]+' руб.';
  Label7.Caption:=proezd.Strings[1]+' руб.';
  Label8.Caption:=proezd.Strings[2]+' руб.';
  Label9.Caption:=proezd.Strings[3]+' руб.';
  end;
end;

procedure TForm1.N4Click(Sender: TObject);
var proezd:TStringList;
begin
if SaveDialog1.Execute then
  begin
  Proezd:=TStringList.Create;
  proezd.Add(Label6.Caption);
  proezd.Add(Label7.Caption);
  proezd.Add(Label8.Caption);
  proezd.Add(Label9.Caption);
  proezd.SaveToFile(SaveDialog1.FileName);
  OpenDialog1.FileName:=SaveDialog1.FileName;
  end;
end;