[Delphi] Dodanie bitmapy do pliku RES i wywołanie go.

BITMAPA1 BITMAP "obrazek1.bmp"
BITMAPA2 BITMAP "obrazek2.bmp"

var
bitmapa1, bitmapa2: TBitmap;
begin
bitmapa1 := TBitmap.Create;
bitmapa1.LoadFromResourceName(HInstance, 'BITMAPA1');
bitmapa2 := TBitmap.Create;
bitmapa2.LoadFromResourceName(HInstance, 'BITMAPA2');
end;

linia
1"
linia 

procedure TForm1.Button1Click(Sender: TObject); //Po kliknięciu na przycisk zapisu
var
I: integer;
ciag: string;
begin
  linie := memo1.Lines.Count;
  ciag := '';
  For I := 0 to linie -1 do
  ciag := ciag + memo1.Lines.Strings[I] + 'Ť'; //Do zaznaczenia nowej linii użyłem znaku Ť, możesz wybrać inny
INI.WriteString('Pola', 'Memo1', ciag);
linie := 0;
end;

procedure TForm1.Button2Click(Sender: TObject); //Po kliknięciu przycisku odczytu
var
linie, I: integer;
ciag, odczyt: string;
begin
odczyt := INI.ReadString('Pola', 'Memo1', '');
ciag := '';
For I := 1 to length(odczyt) do
begin
  If odczyt[I] <> 'Ť' then
  ciag := ciag + odczyt[I]
  else
  begin
  memo1.Lines.Add(ciag);
  ciag := '';
  end;
end;
end;