Ahhh gut danke. Vielleicht noch kurz was dazwischen, was ist daran falsch
Delphi-Quellcode:
var eingabetext: textfile;
begin
write(eingabetext, edit1);
rewrite(eingabetext, 'c:\data.txt');
close(eingabetext);
end;
und stimmt das dann so:
Delphi-Quellcode:
procedure Tform1.createform(sender: Tobject);
var start: cardinal;
begin
start:=GetTickCount;
repeat AlphaBlendValue:=255-(3000*255 div (GetTickCount-start+1)) until GetTickCount>=start+3000;
end;