k

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
  private
    { Private declarations }
  public
    hej : string;
    function test(abc: string): string;
    function test2(asd: string): string;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.test(abc: string): string;
var
feks : string;
begin
hej := abc;
feks := 'Du valgte: ';
Result := feks+abc;
end;

function TForm1.test2(asd: string): string;
begin
if hej = '' then
Result := asd else
Result := 'Røv';
end;

end.


------------------------------------------------------------------------------


unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Image6: TImage;
    Image7: TImage;
    Image5: TImage;
    Image9: TImage;
    Image3: TImage;
    Image8: TImage;
    Image1: TImage;
    Image4: TImage;
    Image2: TImage;
    Image10: TImage;
    Label1: TLabel;
    Button1: TButton;
    procedure Image2Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image9Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image10Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.Image2Click(Sender: TObject);
begin
Label1.Caption := 'USA';
Button1.Enabled := True;
end;

procedure TForm2.Image8Click(Sender: TObject);
begin
Label1.Caption := 'Mellemamerika';
Button1.Enabled := True;
end;

procedure TForm2.Image3Click(Sender: TObject);
begin
Label1.Caption := 'Sydamerika';
Button1.Enabled := True;
end;

procedure TForm2.Image1Click(Sender: TObject);
begin
Label1.Caption := 'Europa';
Button1.Enabled := True;
end;

procedure TForm2.Image5Click(Sender: TObject);
begin
Label1.Caption := 'Afrika';
Button1.Enabled := True;
end;

procedure TForm2.Image9Click(Sender: TObject);
begin
Label1.Caption := 'Mellemøsten';
Button1.Enabled := True;
end;

procedure TForm2.Image4Click(Sender: TObject);
begin
Label1.Caption := 'Sovjet';
Button1.Enabled := True;
end;

procedure TForm2.Image10Click(Sender: TObject);
begin
Label1.Caption := 'Kina';
Button1.Enabled := True;
end;

procedure TForm2.Image7Click(Sender: TObject);
begin
Label1.Caption := 'Sydøstasien';
Button1.Enabled := True;
end;

procedure TForm2.Image6Click(Sender: TObject);
begin
Label1.Caption := 'Oceanien';
Button1.Enabled := True;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
ShowMessage(Form1.test(Label1.Caption));
Form2.Close;
Form3.Visible := True;
end;

end.


------------------------------------------------------------------------------


unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
begin
Label1.Caption := Form1.test2('hejejej');
end;

end.