Задачи помогите увидеть ошибку!

[BBagi]

1 задача

Задача такова что на форме есть кнопка и она при нажатии двигается в право (допустим по 5 )доходит до конца формы и возвращется опятьже медленно с каждым нажатием в начало.
procedure TForm1. нажатие
begin
if Button1.Left>600 then Button1.left:=Button1.left-5 else
if Button1.Left<600 then Button1.left:=Button1.left+5 else Button1.Left:=Button1.left+5;
end; end.

Ошибка то смехотворная) сама ставлю условие и сама его пытаюсь перебить) С размером формы. Идея была заменить на переменную и менять лишь знак) Но идея осталась лишь идеей и кнопка дергается как паролитик в конце формы(
если не сложно посмотрите свежим взглядом)

2 задачка
Несчастный паскаль и модуль crt

В центре красного экрана стоит белая буква D. Затем она плавно переходит в квадрат, который расширяется до границы экрана.

1 полож D
2 полож
DDD
D D
DDD
и так растекается по всему экрану

Закрасить т я закрасила и в центр вывела а вот цыкл для 2 положения и тд не могу составить!
Заранее спс=)

[mihali4]

1 задача
А где проверка на Button1.Left=600 ???
Она у вас попадает на 600 и не знает, что ей делать...

[Somebody]

Сообщение от mihali4

А где проверка на Button1.Left=600 ???

После 2-го else вообще-то. Только от этого не легче.
Для таких целей нужно завести переменную скорости или направления. Подойдёт, например, TButton.Tag:

procedure TForm1.FormCreate(Sender:TObject);
begin
Button1.Tag:=5;
end;
procedure TForm1.Button1Click(Sender:TObject);
begin
if (Button1.Left<-v) or (Button1.Left+Button1.Width>Form1.Width-v) then v:=-v;
Button1.Left:=Button1.Left+v;
end;

[BBagi]

Да да что-то такое=) я вот плутала с or=)

а вот это можешь расшифровать
FormCreate(Sender:TObject);

[mihali4]

Сообщение от BBagi

Да да что-то такое=) я вот плутала с or=)

а вот это можешь расшифровать
FormCreate(Sender:TObject);

Это обработчик события создания формы.
В инспекторе объектов открываем вторую вкладку (событий) и делаем двойной щелчок по пустому полю против OnCreate.
В получившийся контейнер копируем код.

[BBagi]

Мерси.... с первой разабралась полностью) Осталась 2 я(

[Somebody]

Теперь 2-я задачка.

Сообщение от BBagi

Несчастный паскаль и модуль crt

В Delphi для Win консоли это было бы хуже...
Если квадрат имеется в виду по координатам (на экране это ближе к прямоугольнику), то вот:

uses crt;
const maxx=80; const maxy=25;
var n,i:integer;
begin
textbackground(4); textcolor(15);
for n:=0 to 25 div 2 do begin
    clrscr;
    gotoxy((maxx+1) div 2-n,(maxy+1) div 2-n);
    for i:=0 to 2*n do write('D');
    for i:=-n+1 to n-1 do begin
        gotoxy((maxx+1) div 2-n,(maxy+1) div 2-i);
        write('D','D':2*n);
        end;
    gotoxy((maxx+1) div 2-n,(maxy+1) div 2+n);
    for i:=0 to 2*n do write('D');
    delay(10000);
    end;
readln;
end.