Dziwna rzecz

Czemu jak wywołuje kod w trakcie działania programu podczas wyświetlania okienka to on nie działa, a ten sm kod wywoływany przy zamykaniu programu działa bezbłędnie?

Zapodaj ten kod, to będzie łatwiej odpowiedzieć.

Jeden (ten nie działa):

[code]procedure TMainForm.Aktualizujkatalog1Click(Sender: TObject);
var
i: Integer;
linia: string;
F : TextFile;
begin
AssignFile(F,'baza.txt');
Rewrite(F);

for i := 0 to ListView.Items.Count-1 do
with ListView.Items.Item[i] do
begin
linia := Caption +'||'+ SubItems.Strings[0]+'||'+ SubItems.Strings[1]+'||'+ SubItems.Strings[2] +'||';
Writeln(F,Linia); // ta komenda zapisze linie do pliku
end;
CloseFile(F); //zamykasz plik
aktul.ShowModal;
end;[/code]

a ten drugi co działa to:

[code]procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
i: Integer;
linia: string;
F : TextFile;
begin
AssignFile(F,'baza.txt');
Rewrite(F);

for i := 0 to ListView.Items.Count-1 do
with ListView.Items.Item[i] do
begin
linia := Caption +'||'+ SubItems.Strings[0]+'||'+ SubItems.Strings[1]+'||'+ SubItems.Strings[2] +'||';
Writeln(F,Linia); // ta komenda zapisze linie do pliku
end;
CloseFile(F); //zamykasz plik

end;[/code]

Bo ListView nie jest jeszcze stworzony...

jak ListViev może nie być jeszcze stworzony? Nie rozumiwm, przecież jest on wstawiany przy ładowaniu programu (chyba)

Wywołanie wstawiaj w onshow a nie w oncreate