Delphi Units

Reiketu zmogaus, kuris galetu padeti naudojant Delphio unitus, yra funkcija uzstatyta ant buttono, kaip padaryti, kad paspaudus ta buttona funkcija butu nusiusta i 4 skirtingus unitus?

p.s. sito reikia tam, kad programa galetu dirbti sparciau, per kelis unitus ta pati veiksma atliktu vienu metu, tik su skirtingais kintamaisiais.

O tu nemaišai UNIT su THREADS ? Na jei su unit, tai sukurk 4 unitus, visuose patalpink ta funkcija (pakeisk pavadinimus kad nesipjautu), o ant button uždėk kad visas iškviestų.

Nea, tikrai zinau apie ka kalbu, gal gali placiau? Va pvz, kad kiek vienam unite butu po salygos sakini, ir jeigu salyga tinka, kad ka nors parasytu i memo1, tarkim kuris yra pirmam unite.

Programoje sukurk: Memo ir button'ą

unit Unit9;

interface

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

type
 TForm9 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
 private
{ Private declarations }
 public
{ Public declarations }
 end;

var
 Form9: TForm9;

implementation
  uses pirmas, antras;
{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);
begin
pakeiciam(Memo1);
pakeiciam2(Memo1);
end;

end.

unit pirmas;

interface

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

Procedure pakeiciam(a : Tmemo);

implementation

procedure pakeiciam(a: Tmemo);
begin
 a.Lines.Add('pakeiciam : procedura')
end;

end.

unit antras;

interface

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

Procedure pakeiciam2(a : Tmemo);

implementation

procedure pakeiciam2(a: Tmemo);
begin
 a.Lines.Add('pakeiciam2 : procedura')
end;

end.

Siūlyčiau pasidomėti Threads delfije :D

DEKUI !!!!!!!