Работа с *.bmp изображением

procedure TForm1.Button1Click(Sender: TObject);
 
begin
   if OpenDialog1.Execute then
  begin
        FName:= OpenDialog1.FileName;
        Memo1.Lines.LoadFromFile(FName);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ss: TStringStream;
  I: Integer;
  s: string;
begin
  ss := TStringStream.Create;
  try
    for I := 1 to 20 do begin
      s := ' string_#'+I.ToString;
      ss.WriteBuffer(Pointer(s)^, Length(s));
    end;
    ClipBoard.AsText := ss.DataString;
  finally
    ss.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sb: TStringBuilder;
  I: Integer;
begin
  sb := TStringBuilder.Create;
  try
    for I := 1 to 20 do
      sb.Append(' string_#'+I.ToString);
    ClipBoard.AsText := sb.ToString;
  finally
    sb.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ms: TMemoryStream;
  s: string;
  I: Integer;
begin
  ms := TMemoryStream.Create;
  try
    for I := 1 to 20 do begin
      s := ' string_#'+I.ToString;
      ms.WriteBuffer(Pointer(s)^, Length(s));
    end;
    SetLength(s, ms.Size);
    Move(ms.Memory^, Pointer(s)^, Length(s));
    ClipBoard.AsText := s;
  finally
    ms.Free;
  end; 
end;