Program og Sprog support

Hej

Har lige et spørgsmål. Har lige tilføjet sprog support til mit program og er lidt tvivl om en ting.

Jeg har en sprog skifter procedure som bliver kørt når man klikker på det ønsket sprog og når man starter programmet så man får det sprog man brugte sidst.

procedure Language(Input: String);
begin
//finder ud af hvilket sprog man har valg og sørge for den
//rigtige sprog fil bliver loadet

button1.caption := //ny sprog
button2.caption := //ny sprog
//osv
end;

Der er nogle strings som har noget tekst som også skal ændres. Da jeg ikke kan ændre string værdien fra min procedure som med knapper så jeg bliver nød til at gøre det på denne måde

procedure TForm1.Button1Click(Sender: TObject);
var
lang : string;
begin
//checker hvilket sprog der skal bruges
lang := //teksten på det ønsket sprog
showmessage(lang);
end;

Men hvis jeg nu laver alle de strings som globale variabler ?

var
text1, text2, text2 : string;

procedure Language(Input: String);
begin
button1.caption := //nyt sprog
button2.caption := //nyt sprog

//mine strings
text1 := //nyt sprog
text2 := //nyt sprog
text3 := //nyt sprog
end;

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

Er det ikke smartere at gøre det på den måde ? det nemmere for mig :) men er det den rigtig måde at gøre det på ? fordi hva så når man har 50 strings defineret globalt ? bruger programmet ikke mere ram ?