Przypisanie stałej kilku instrukji

Witam.

Jak zrobić, by przypisać jakiejś stałej kilka instrukcji, np:

wybor1 ma definiować label1.caption, label2.caption itd..

I potem gdzieś w kodzie bym wpisał tylko wybor1 w kilku miejscach, zamiast powtarzać w kodzie kilka razy label1.caption, label2.caption itd..

Proszę o pomoc.

Nie wiem czy o to chodzi, ale robisz tak:

procedure wybor1;
begin
    Form.Label1.Caption:='Napis1';
    Form.Label2.Caption:='Napis2';
end;

I potem jak chcesz wywołać to piszesz:

wybor1;

Chyba, że chodzi ci o np. rekord
Stałe

  //Zwykły stały rekord
rec: record
    Caption1: String;
    Caption2: String;
end =
(
    Caption1: 'Napis1';
    Caption2: 'Napis2';
);

Poczytaj o procedurach i funkcjach ewentualnie case of.