Schleife on Net send progy

[the_seed]

Hi zusammen, bin neu hier und habe erst vor kurzem angefangen mit Delphi zu programmieren. Habe mir mithilfe von Tuts und Büchern ein kleines Programm zusammen gebastelt das Net send Nachrichten verschickt , ich wollte ein edit feld machen wo man angeben kann wie viele Nachrichten geschickt werden sollen nur irgendwie hat das mit der for-schleife nicht so gepasst....vielleicht kann mir jemand verraten was an meinem Quellcode nicht stimmt....

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Param,inhalt: String;
o,i: Integer;
begin
o:=StrToInt(edit3.text);
Param := 'send ' + Edit1.Text + ' ' + Edit2.Text + '';
ShellExecute (GetDesktopWindow, 'open', 'net.exe', PChar(Param), nil, SW_HIDE);
for i:= 1 to o do
begin
param;
end;

end.