Lidt hjælp til en newbie?

Hej med jer!
Jeg er lige begyndt på at tage de første spæde skridt ud i delphi programeringens verden, og har fået skrevet et par mindre programer

Men jeg er kørt fast i det program jeg sedder og fifler med lige nu, Det er meningen at det følgenende program skal virke således:

Hvis man trykker på RadioButton1 og derefter på Button1 skal der skrives "10" i Memo1
Trykker man på RadioButton2 og derafter på Button1 skal Der skrives "20" i Memo1

og ja.. så er der faktisk ikke mere i det!
Mit gæt er at code1 aldrig bliver tildelt sin "værdi"
jeg får et Bascal Hint i messageboard'et der siger:
"H2077 Value assigned to 'code1' never used"

Kode:

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

type
TMain = class(TForm)
Memo1: TMemo;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
GroupBox2: TGroupBox;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Button1: TButton;
Button2: TButton;
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Main: TMain;

implementation

{$R *.dfm}

procedure TMain.RadioButton1Click(Sender: TObject);
var
code1: string;
begin
code1 := '10'
end;

procedure TMain.RadioButton2Click(Sender: TObject);
var
code1: string;
begin
code1 := '20'
end;

procedure TMain.Button1Click(Sender: TObject);
var
code1: string;
begin
Memo1.Lines.add(code1)
end;

end.


Det er garanteret er eller andet simpelt, men jeg kan ikke se det. Er der nogen der kan lede mig i den rigtige retning?