буффер обмена

[experts91]

проблема такова:

 
procedure TForm1.FormCreate(Sender: TObject);
var
  ok: boolean;
begin
  OK:=false;
  repeat
   button1.Click;
   sleep (500);
  until ok;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  P:= @Buffer;
  if Clipboard.HasFormat(CF_TEXT) then
   begin
    application.ProcessMessages;
    Clipboard.GetTextBuf(P,Sizeof(Buffer));
    if p = '1???' then
     clipboard.Open;
    clipboard.astext:='1000';
    clipboard.Close;
    if p = '2???' then
     clipboard.Open;
    clipboard.astext:='2000';
    clipboard.Close;
   end;
end;

end.

мне нужно, чтобы если в буффере появлялось число, начинающееся на "1" оно автоматически заменялось на "1000" и число, начинающееся на "2" заменялось на "2000". А уменя получилось, что любое число заменяется на "2000". Как быть??...
От модера: используй теги CODE!

[SkyM@n]

правильно расставь begin .. end

[rpy3uH]

 
procedure TForm1.Button1Click(Sender: TObject);
begin
  P:= @Buffer;
  if Clipboard.HasFormat(CF_TEXT) then
   begin
    application.ProcessMessages;
    Clipboard.GetTextBuf(P,Sizeof(Buffer));
    if p = '1???' then
     clipboard.Open;
    clipboard.astext:='1000';
    clipboard.Close;
    if p = '2???' then
     clipboard.Open;
    clipboard.astext:='2000';
    clipboard.Close;
   end;
end;

надо так

    if p[1] = '1' then
     begin
       clipboard.Open;
       clipboard.astext:='1000';
       clipboard.Close;[/B]
      end;
    if p[1] = '2' then
     begin
      clipboard.Open;
      clipboard.astext:='2000';
      clipboard.Close;
     end;