Editten parametre göndermek!

[Guybrush]

Bu kodu oluşturup run dediğimde hata vermiyor ama programda istenen yapılamıyor.
İstenilen edit7'ye değer girildikten sonra buton basılması halinde yazıyı bütün
Editlere kopyalamak. Bu kodu bir incelebilir misiniz? Hata nerdedir?


unit Unit1;

interface

uses
Windows, WinTypes, WinProcs, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Printers;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Button1: TButton;
procedure button1DblClick(sender:TObject);
procedure writeAll(edit7string:string);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
Procedure TForm1.writeAll(edit7string:string);
begin
edit1.Text:=edit7string;
edit2.Text:=edit7string;
edit3.Text:=edit7string;
edit4.Text:=edit7string;
edit5.Text:=edit7string;
edit6.Text:=edit7string;
end;

procedure TForm1.button1Click(sender:TObject);
begin
writeall(edit7.text);
end;

END.

[a_o]

mrb kodun aynısını bende denedim ve çalıştı. sizde ne hatası veriyordu?

[Guybrush]

Kodu çalıştırınca Edit/'deki yazı diğer editlerde de göründü mü?
Dediğim gibi bende de hata vermedi ama uygulamada istediğimi yapamadım.

[Guybrush]

Edit7'deki...

[a_o]

ewt bende göründü. edit7 dekilerin hepsi diğer editlere yazıldı.
programı f7 yle adım adım çalıştırıp kontrol ederseniz daha ii olur
kolay gelsin

[Guybrush]

Teşekkür ederim!