verschlüsseln

[Saminem]

Hallo
Mein Problem ich verstecke ein text in ein bild

Delphi-Quellcode:

procedure TForm1.verstecken;
var y,m,x,f,g:integer; P1:pbytearray; Maske,temp,v,a:byte;
begin
  Maske:=254;
  m:=1;
  f:=7;
  g:=0;
  len:=Length(Memo1.Text);
  v:=byte(Memo1.Text[m]);


    For y:=0 to hoehe do begin
      P1:=Image1.picture.Bitmap.ScanLine[y];
        For x:=0 to (breite*3-3)  do begin
          temp:=p1[x] and Maske;
          f:=f-g;
          a:=v shr f;
          P1[x]:=temp or a;
            if g<7 then inc(g) else begin
              g:=0;
              inc(m);
            end;
          if m>=len then exit;
              Memo1.clear
        end;
        image1.Refresh;
    end;
  end;

dann will ich es auslesen

Delphi-Quellcode:

procedure Tform1.finden;
  var y,m,x,f,g,q:integer; P2:pbytearray; Maske,temp,v,a,s:byte;w :string;
  begin
  Maske:=1;
  m:=1;
  f:=7;
  g:=0;
  w:='';


    For y:=0 to hoehe do begin
      P2:=Image1.picture.Bitmap.ScanLine[y];
        For x:=0 to (breite*3-3)  do begin
        temp:=P2[x] or Maske;
        f:=f-g;
        temp:=temp shl f;
        s:= P2[x] or temp;
        w:= w + chr(s);
        if g>7 then inc(g) else begin
              f:=7; inc(m);
              If m>=len then exit
              end;
              Image1.Refresh;
              Memo1.Text:=w;



  end;
  end;
  end;

Leider gibt er mir dan nicht brauchbares aus bitte um hilfe danke