løkker

prøv < i stedet for >. så skulle den da stoppe nå den når til x = 200

procedure flyt;
begin
form1.Memo1.Top:=x;
form1.Memo1.left:=y;
x:=x+1;
y:=y+1;
if x < 200 then 
flyt;
end;

for x:= 1 to 200 do
begin
  form1.Memo1.Top:=x;
  form1.Memo1.left:=x;
end

bibelskolen> Problemet er at du har 2 for-løkker \"inden i hinanden\". Det vil sige at hver gang din \"X tæller 1\" så \"tæller Y 200 gange\", eller med andre ord tilsammen blvier din memo flyttet 40000 gange (200x200). Brug i stedet EEN for-løkke hvor samme værdi benyttes både til X og til Y (udføres 200 gange i alt).

Ligeledes regner jeg med at det er FORM\'en du vil flytte og ikke kun memo feltet på formen !?
<SNIP>
for I := 1 to 200 do begin
  form1.X := I;
  form1.Y := I:
end;
</SNIP>

bibelskolen >> Nååå, var guds hjælp ikke nok denne gang :)

Lige et tip hvis du flytter en memo. så skriv fx memo1.doublebuffered := true;
Så burde det køre bedre