Как в Bitmap редактировать пиксели

[Yungo161]

все равно не получается.. ошибку выдает.. я в графике более чем новичек, вот код

строка содержит 5 чисел через пробел. x y r g b
первые два удаляю за ненадобностью

procedure TForm1.Button4Click(Sender: TObject);
var res:tcolor; r,g,b,str:string;a:integer;rr,gg,bb:byte;
begin
memo1.lines.loadfromfile('Data\Mittel-Daten\map.txt');
a:=pos(' ',memo1.Lines[2]);
str:=memo1.Lines[2];
delete(str,1,a);
a:=pos(' ',str);
delete(str,1,a);
a:=pos(' ',str);
a:=pos(' ',str);
r:=copy(str,1,a);
delete(str,1,a);
a:=pos(' ',str);
g:=copy(str,1,a);
delete(str,1,a);
a:=pos(' ',str);
b:=copy(str,1,a);
res:=RGBtoColor(strtoint(r),strtoint(g),strtoint(b));
image2.Canvas.Brush.color:=res;
image2.canvas.rectangle(0,0,20,20);
end;

[Delphi_ProGer]

на какой строке ошибка?

[NetSpace]

а два раза писать это зачем?

a:=pos(' ',str);
a:=pos(' ',str);

он всё равно найдёт одну и ту же позицию вхождения пробела в стрке, т.е. будет, например, a=5 и a=5. если вам надо найти все последующие вхождения, то начало строки до пробела ' ' надо удалять.
т.е.

a:=pos(' ',str);//нашли первый пробел
delete(str,1,a);//удалили его
a:=pos(' ',str);//ищем второй пробел

или я не там копаю?

[Yungo161]

в рес присвоить пишет что не может из стринга в интеджер перевести ищу ошибку в строке

[Delphi_ProGer]

Сообщение от Yungo161

в рес присвоить пишет что не может из стринга в интеджер перевести ищу ошибку в строке

значит выдаеться пустая строка, плохо парсите...

[Yungo161]

боюсь что не там. уже заметил) существа он не несет)

[Yungo161]

все получилось) спасибо огромное за помощь) как вас отблагодарить? куда тыкнуть чеб репутацию поднять)