Text aus Editfeld (Form1) nach Panel (Form2)

[CR3ATiV3]

Dankeschön! Ich hab es auch gerade eingetippt, aber da zeigt er mir Fehler an.
Trotz deiner Mühe, war das mir zu kompliziert ... wir sind in Lazarus auch noch nicht so weit erst bei Modualisierung, d.h. ich brauch etwas einfacheres, denn ich muss es auch dem Lehrer erklären können was ich da gemacht habe ...

ich hatte das alles schon mal richtig gehabt, aber dann ist mir ein fehler passiert und dann war alles weg und jetzt weiß ich auch nicht mehr wie ich das gemacht hatte ...

der Quelltext sah so aus:

Code:

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls, Buttons;

 type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    NameEdit: TEdit;
    Edit1Name: TEdit;
    GroupBox1: TGroupBox;
    Begruessung: TLabel;
    Anweisung: TLabel;
    ich_heisse: TLabel;
    Ueberschrift: TPanel;
    procedure AbbrechenClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure OkClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; Name: String;

implementation

uses Unit2;

{ TForm1 }

procedure TForm1.OkClick(Sender: TObject);
begin
     Form2.Label1.Caption := NameEdith.text;
     form2.show;
     form2.caption := 'Meine erste Instanz von Tform2'
end;

procedure TForm1.AbbrechenClick(Sender: TObject);
begin
     close;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.hide;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin

end;


 initialization
  {$I Unit1.lrs}

end.

ps. wie gesagt ich bin absolute anfängerin !