помогите пожалуйста написать программу на дельфи

[qwerra]

Всем привет…
У меня такое задание
Создано 3 панели…
Сверху пишется «Человечество» (это первая панель),
Слева «Вася»(это 2 панель ),
а с права «Марфы»(это 3 панель ).
Между панелями стоять пару кнопок
1)старт
2)стоять
3)все отчистить
4)а ну ка пошел(второй старт)
5)давай махнёмся
6)еще Edit.
На двух панелях там где Вася и Марфы должен летать текст например 10 слов
там где панель Вася- должно летать Вася,а там где панель Марфы – должно летать Марфы .
Когда я нажму кнопку «Давай махнёмся» ,на панели там где Вася должен быть текст «Марфы»,а там где Марфы должен быть текст «Вася».
Пожалуйста помогите….

[Вавел из ГМТУ]

А в чём затруднения?

[qwerra]

не как не могу зделать,что бы слова летали там где панель Вася- должно летать Вася,а там где панель Марфы – должно летать Марфы .
Когда я нажму кнопку «Давай махнёмся» ,на панели там где Вася должен быть текст «Марфы»,а там где Марфы должен быть текст «Вася».

[uberchel]

Это надо было ?

Помог ?, если да то нажмите на весы с лева =)

[qwerra]

на весы с лева-всмесле на репу??))))

[uberchel]

Ага )))

З.Ы. исходник надо ?

[qwerra]

да...)))

P.S спасибо большое,выручил)))

[uberchel]

Держи ! )))

Вот сделал как те надо !

[qwerra]

Эммм....у меня проблема не как не моге сделать,что бы на панели Вася и Марфы летали разноцветные слова(над вася-вася,над марфы-марфы)....
воть програма...
Помоготи!!!!!!плиз.....)

[Вавел из ГМТУ]

Добавте в процедуру Button1Click несколько строк:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
  Randomize;
 //Сначала удаляем все метки (Label) с формы у которых св-во Tag = 1
 for i := ComponentCount - 1 downto 0 do
  if (Components[i] is TLabel) then
   if (Components[i] as TLabel).Tag = 1 then
    (Components[i] as TLabel).Free;

 SetLength(Labels, StrToInt(Edit1.Text));
 for i := 0 to Length(Labels) - 1 do
 begin
  Labels[i].CLabel := TLabel.Create(Self);
  With Labels[i].CLabel do
  begin
   Parent := Panel2;
   if NotVasya then Caption := 'Марфы'
   else Caption := 'Вася';
   Left := Random(Panel2.Width - Width) + Width;
   Top := Random(Panel2.Height);
   Font.Color := RGB(Random(200),Random(200),Random(200));
   Transparent := true;
   Tag := 1;
  end;
  Labels[i].AnimLeft := true;
 end;

 SetLength(Labels, Length(Labels) + StrToInt(Edit1.Text));
 for i := StrToInt(Edit1.Text) to Length(Labels) - 1 do
 begin
  Labels[i].CLabel := TLabel.Create(Self);
  With Labels[i].CLabel do
  begin
   Parent := Panel3;
   if NotVasya then Caption := 'Вася'
   else Caption := 'Марфы';
   Left := Random(Panel3.Width - Width) + Width;
   Top := Random(Panel3.Height);
   Font.Color := RGB(Random(200),Random(200),Random(200));
   Transparent := true;
   Tag := 1;
  end;
  Labels[i].AnimLeft := true;
 end;
 Timer1.Enabled := true;
end;

Хотя по идее надо рандомить до 256...