also, ich wollte einen Speicher Tschechen, das ist aber nicht mehr der Ursprungscode wegen des Fehlers hier ist mal ein Ausschnitt meines Quelltextes:
Delphi-Quellcode:
procedure TForm2.FormShow(Sender: TObject);
var
pfad : string;
profil : TStrings;
I1,I3,H,B : integer;
Screen : TScreen;
begin
I3:=208;
H:=Screen.Height;
B:=Screen.Width;
Hier----> Form1.Label1.Caption:=IntToStr(H)+' x '+IntToStr(B); <----Hier
Image3.Left:=B div 2;
Image3.Left:=Image3.Left - I3;
I1:=129;
Image1.Top:=H - I1;
Image4.Left:=B - 17;
Image5.Left:=B - 273;
Image6.Left:=B - 273;
Image8.Height:=425;
Image8.Width:=601;
Image9.Height:=425;
Image9.Width:=601;
Image9.Left:=600;
pfad:=ExtractFilePath(Application.ExeName);
profil := TStringList.Create;