Also hier die Source vom Button der die Form anzeigen muss.
Delphi-Quellcode:
procedure TDemoForm.Button1Click(Sender: TObject);
begin
form1.show; <--------- DataForm zeigen
Screen.Cursor := crHourGlass;
SaveURLToFile('http://www.....');
NewsList := TStringList.Create;
if GetNewsFeed(...)
then ParseNews
else ShowMessage('Fehler!');
timer1.Enabled := true;
Listview.Invalidate;
form1.Close; <---------- DataForm wieder schliessen
Screen.Cursor := crDefault;
end;