OpenDialog1.Execute=true (error)

[zotox]

procedure TForm1.Button1Click(Sender: TObject);
var
 s:TStrings;
begin
 s:=s.Create();
 if OpenDialog1.Execute=true then
  begin
   edit1.Text:=OpenDialog1.FileName;
   s.LoadFromFile(edit1.Text);
  end;
end;

Выскакивает ошибка при нажатии на кнопку (то есть когда программа запустилась)

Помогайте (ошибку скорее всего сами найдете так как код маленький, ну если что дам ошибку!)

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

s:=s.Create();

заменить на

s:=TStringList.Create;

и диалог в ошибке не причем
хотя можно просто написать

if OpenDialog1.Execute then

[Serge_Bliznykov]

ещё добавлю.
после s.LoadFromFile...
будет идти какой-то код, которого сейчас ещё просто нет, верно?
иначе, бессмысленно читать файл в локальную переменную...

Так вот, не забудьте при выходе из процедуры сделать
s.Free; или
(лучше) так:
FreeAndNil(s);